home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 November
/
1990-11.d64
/
picture credits
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
809b
|
24 lines
10 poke53280,6:poke53281,6
20 print"[147]":a$="[212]he [199]azette [199]allery - [206]ovember 1990":gosub 220
30 a$="- [200]onored [193]rtists and [208]ictures -":gosub220:print
40 for ct=1 to 5:print:for ps=1 to 3
50 read a$
60 if ps=1 then b$=chr$(34)+a$+chr$(34)+" by "
70 if ps=2 then a$=b$+a$:gosub 220
80 if ps=3 then a$="[210]esiding in "+a$:gosub 220
90 next ps,ct
100 print:a$="*** [211]ubmit your entries to: ***":gosub220
110 a$="[199]azette [199]allery, [195]ompute [208]ublications,":gosub220
120 a$="324 [215]est [215]endover, [211]uite 200,":gosub220
130 a$="[199]reensboro, [206][195] 27408":gosub220
140 get a$:if a$="" then 140
150 end
160 data "[195]hoo [195]hoo","[215]ayne [211]chmidt","[206]ew [217]ork, [206][217]"
170 data "[206]atalie","[215]ayne [211]chmidt","[206]ew [217]ork, [206][217]"
180 data "[201]talian [199]arden","[215]ayne [211]chmidt","[206]ew [217]ork, [206][217]"
190 data "[208]irate","[215]ayne [211]chmidt","[206]ew [217]ork, [206][217]"
200 data "[211][208][193][218][207][218]","[202]ames [200]astings-[212]rew","[211]askatoon, [211]ask, [195]anada"
210 :
220 for x=1 to int(20-len(a$)/2):printchr$(32);:next:printa$
230 return